home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / BASIC / LIB / EVENTSHELL / REDRAW3 / !Redraw3 / !Run < prev    next >
Text File  |  1995-11-26  |  1KB  |  27 lines
  1. | !Run Obey file for Redraw3 Application
  2. RMensure UtilityModule 3.00 Error Sorry! RenderDrw requires RISC OS 3 or later
  3. Set Redraw3$Dir <Obey$Dir>
  4. Set Redraw3$BasicFile <Obey$Dir>.!Redraw3
  5. IF "<EvntShell$Path>"="" THEN ERROR 0 Shell resources not found
  6. |Change the next line if you are using a different
  7. |filetype number
  8. |Set Alias$@RunType_200 Run <Obey$Dir>.!Run %%*0
  9. IconSprites <Obey$Dir>.!Sprites
  10. Run <Obey$Dir>.ChkSpr
  11. |Set Dummy$Path <Run$Path>,<Obey$Dir>.Resources.
  12. |Run Dummy:ResFind Redraw3
  13. |Unset Dummy$Path
  14. WimpSlot -min 512K -max 512K
  15. |Load any modules required now
  16. RMEnsure InterfaceManager 2.00 RMLoad <EvntShell$Path>Interface
  17. RMEnsure InterfaceManager 2.00 Error Couldn't load Interface module
  18. RMEnsure MenuUtils 0.11 RMLoad <EvntShell$Path>MenuUtils
  19. RMEnsure MenuUtils 0.11 Error 0 Error Couldn't load MenuUtils Module
  20. RMEnsure MessageTrans 0.06 RMLoad <EvntShell$Path>MsgTrans
  21. RMEnsure MessageTrans 0.06 Error Couldn't load MsgTrans Module
  22. RMEnsure DrawFile 1.30 RMLoad <EvntShell$Path>DrawFile
  23. RMEnsure DrawFile 1.30 Error Couldn't load DrawFile Module
  24. |And check that there is still enough memory!
  25. WimpSlot -min 512K -max 512K
  26. Run <Redraw3$Dir>.!Redraw3 %*0
  27.